Publication 8/Publication_08_1996_High-Tech_de_Side_B.d64/drive-music 2

Commodore BASIC | 2023-02-26 | 1KB | 6 lines

1 open1,8,15:c$=chr$(4)+chr$(30):fori=1to9:forj=1to30:readb:a$(i)=a$(i)+chr$(b):nextj,i:fori=1to9:print#1,"m-w"chr$((i-1)*30)c$a$(i):next:print#1,"m-e"chr$(28)chr$(4):end:data166,133,173,0,28,105,1,24,41,3,9,4,141,0,28,164:data134,136,208,253,202,208,235,198,135,208,229,96,32,75,4,234
2 data162,0,189,100,4,133,134,189,183,4,133,135,138,72,32,85:data4,104,170,232,224,83,208,3,76,28,4,173,0,24,240,226:data169,0,141,0,28,169,192,141,14,28,96,169,18,133,133,169:data127,141,14,28,96,32,0,4,169,1,133,134,169,50,133,135:data32,0,4,96
3 data180,105,120,135,120,135,160,180,220,1,1,180,105,120,135,135:data145,135,120,1,1,180,105,120,135,120,135,160,180,220,1,1:data180,160,120,135,145,160,145,135,1,1,1,1,180,135,1,1:data160,120,1,1,145,145,145,145,160,145,135,1,120,105,1,1
4 data180,135,1,1,160,120,1,1,145,145,145,145,160,145,135,1:data1,1,1:data50,30,25,20,25,20,20,17,35,255,255,20,30,25,25,25,20:data25,60,255,255,20,30,25,20,25,20,20,17,35,255,255,20:data20,25,25,20,17,20,65,255,255,255,255,50,60,100,100,50
5 data60,100,100,20,20,20,20,20,20,50,20,20,50,255,255,50:data60,100,100,50,60,100,100,20,20,20,20,20,20,100,255,255:data0,0,0,0,0,0,0,0